1 A=A+1
2 POKE53280,.:POKE53281,.:PRINTCHR$(147):POKE53272,29
3 PRINT"[179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180]";
4 PRINT"[178]  [179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180]  [178]";
5 PRINT"[181][180] [178] [193]US [204]UKIAN'S [206]ONSENS-[215]ERKSTATT [178] [179][182]";
6 PRINT"[178][181][180][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][179][182][178]";
7 PRINT"[178] [178][179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180][178] [178]";
8 PRINT"[178] [178][178]     [208]ARALOGISCHE [208]ROGRAMME     [178][178] [178]";
9 PRINT"[181][177][182][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][181][177][182]";
10 PRINT"[158][196]IES IST EIN KLEINES [194]EISPIEL FUER SINN-";
11 PRINT"LOSES  "CHR$(34)"[214][197][210][218][201][197][210][197][206]"CHR$(34)"  VON [208]ROGRAMMEN DURCH";
12 PRINT"   ALLERLEI BEDEUTUNGSLOSE [205][161]TZCHEN!   "
13 IFA=1THENLOAD"[150]*",8,1
14 FORAA=0TO3000:NEXT:POKE53280,11:POKE53281,. :PRINTCHR$(147):POKE646,11
15 PRINT"[145][179][177][177][177][177][177][180]"CHR$(34)"[196] [197] [210]  [193] [213] [207] [210] [162] [213] [205] [197] [210]"CHR$(34)"[179][177][177][177][177][177][180]";
16 PRINT"[181][177][177][177][177][177][182][179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180][181][177][177][177][177][177][182]";
17 PRINT"       [178] [211]CHLIE[174]T OFFENE [198]ILES! [178]       ";
18 PRINT"[179][177][177][177][177][177][180][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][179][177][177][177][177][177][180]";
19 PRINT"[181][177][177][177][177][177][182][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][181][177][177][177][177][177][182]";
20 PRINT"[146][155]"
21 PRINT"   -[218]U BEARBEITENDE [196]ISK EINLEGEN UND   ";"              [183][184]  DR[165]CKEN!"
22 GETA$
23 IFA$<CHR$(133)ORA$>CHR$(133)THEN22
24 IFA$=CHR$(133)THEN25
25 PRINT"[147][158] JE MEHR [198]ILES AUF DER [196]ISK SIND, UM SO"
26 PRINT"        L[161]NGER MU[174] ICH ARBEITEN.":FORZ=1TO1000:NEXT
27 FORC=0TO15:POKE646,C :PRINT"";
28 PRINT"[147][221]    ICH         [219]                      ";
29 PRINT"                ARBEITE        [219]        ";
30 PRINT"                              JETZT    _";:NEXT
31 OPEN1,8,15,"V":CLOSE1:
32 POKE54296,6:POKE54278,240:POKE54272,17:FORD=1TO65:POKE54273,1+ABS(32+D)
33 POKE54276,D :NEXT::                 FORC=2TO14:POKE646,C:PRINT"[147]";
34 PRINT"[146][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]  [198][197][210][212][201][199][146]  [178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]";:NEXT:POKE54296,0
35 FORT=1TO1500:NEXT:POKE53280,6:POKE53281,6:POKE646,3
36 PRINT"[147][221][196]U H[161]TTEST [176][207][198][198][197][206][197] [198][201][204][197][211][176] AUCH OHNE EIN";"SOLCHES [208]ROGRAMM 'SCHLIE[174]EN"
37 PRINTTAB(28)"[145]K[163]NNEN MIT:          [207][208][197][206]1,8,15,"CHR$(34)"[214]"CHR$(34)":[195][204][207][211][197]
38 [153]"OPEN >  STR$IESER PEEKEFEHL STEHT IN (null)EILE 31!  < WAIT";
39 [153]" STR$AS 'STR$RUMHERUM' IST VTAB(LLIG NUTZLOS FFNR ";
40 [153]"      DIE ATNUSFFNHRUNG DES PEEKEFEHLES!":[153][163]192)"PRINT# (null)UKIAN"
41 [129]T[178]1[164]4500:[130]:[153]""
42 [151]646,14:
100 [151]808,225:[151]53270,6:[129]C[178]13[164]16[169].1   :[151]53280,C:[151]53281,C:[130]
101 [153][199](147)"      **** COMMODORE BASIC V2 ****      ";
102 [153]:[153]"ONONONONONONONONONONONON 64K RAM SYSTEM  38911 BASIC BYTES FREE"
103 [129] Z[178]1[164]2000:[130]:[158]58253